From 28cdf569ecb82ca334377ee4b75910bf9c998cf6 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 16 Feb 2009 11:52:57 +0000 Subject: [PATCH] (Fcheck_coding_systems_region): Fix typo; Qt -> Qnil. --- src/coding.c | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/src/coding.c b/src/coding.c index abc7b3eca76..bd8c19f374a 100644 --- a/src/coding.c +++ b/src/coding.c @@ -8461,7 +8461,10 @@ value is nil. START may be a string. In that case, check if the string is encodable, and the value contains indices to the string instead of -buffer positions. END is ignored. */) +buffer positions. END is ignored. + +If the current buffer (or START if it is string) is unibyte, the value +is nil. */) (start, end, coding_system_list) Lisp_Object start, end, coding_system_list; { @@ -8492,7 +8495,7 @@ buffer positions. END is ignored. */) start_byte = CHAR_TO_BYTE (XINT (start)); end_byte = CHAR_TO_BYTE (XINT (end)); if (XINT (end) - XINT (start) == end_byte - start_byte) - return Qt; + return Qnil; if (XINT (start) < GPT && XINT (end) > GPT) { -- 2.30.2